home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
551-575
/
disk_559
/
apig
/
apiglib_v11.lzh
/
e7_images.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1991-09-28
|
1KB
|
62 lines
/* */
/* */
x = addlib("apig.library",0,-30,0)
portname = "example7_port"
p = openport(portname)
call set_apig_globals()
scrtitle = "Hey Buddy, Yea You, This is Your New Screen !"
wintitle = "This is your title"
winidcmp = CLOSEWINDOW
winflags = WINDOWCLOSE+WINDOWDRAG+WINDOWSIZING+WINDOWDEPTH+GIMMEZEROZERO
scr = openscreen(0,0,640,400,3,4,5,LACE+HIRES,CUSTOMSCREEN,scrtitle)
/* open window */
w1 = openwindow(portname,0,0,640,400,2,4,winidcmp,winflags,wintitle,scr,0,0,0)
rpw1 = getwindowrastport(w1)
image = loadimage("octalbuttonbitmap",0,0,0)
x = drawimage(rpw1,image,270,90)
z = pitext(rpw1,200,112,"This is small a IFF image",1,2,JAM2,0,0)
wait 2 secs
z = clearscreen(rpw1,0,0)
do x = 10 to 600 by 50
do y = 10 to 380 by 16
z = drawimage(rpw1,image,x,y)
end
end
wait 1 secs
z = pitext(rpw1,250,112,"Im DONE ...",1,2,JAM2,0,0)
z = pitext(rpw1,180,122,"You Can Close The Window Now",1,2,JAM2,0,0)
exitme = 0
do forever
x = waitpkt(portname)
do forever
msg = getpkt(portname)
if msg = '0000 0000'x then leave
class = getarg(msg,0)
if class = CLOSEWINDOW then exitme = 1
x = reply(msg,0)
end
if exitme = 1 then leave
end
x = freeimage(image)
say " x = " x
a =closewindow(w1)
a =closescreen(scr)
exit